home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / programming / other / hunk / rexx / printreloc.rexx < prev    next >
OS/2 REXX Batch file  |  1999-06-14  |  603b  |  27 lines
  1. /*  Print the complete relocation table with "Hunk". © 1996 THOR */
  2.  
  3. IF OPEN(Printer, 'PRT:', 'W') THEN DO
  4.    CALL WRITELN(Printer, 'List of reloc entries')
  5.    CALL WRITELN(Printer, '')
  6.    EDITHUNK
  7.    DELOCATE
  8.    EDITRELOC 0
  9.    RELOC 'CNT'
  10.    SAY CNT.COUNT 'reloc entries'
  11.    LAST=0
  12.    X=0
  13.    EDITENTRY 0
  14.    DO i=0 TO CNT.COUNT-1
  15.       ENTRY 0 0 i 'HERE'
  16.       CALL WRITECH(Printer,INSERT('0x' || D2X(HERE.OFFSET),'',1,8,' ') INSERT('>0x' || D2X(HERE.OFFSET-LAST),'',1,7,' '))
  17.       X=X+1
  18.       IF X=4 THEN DO
  19.          X=0
  20.          CALL WRITELN(Printer,'')
  21.       END
  22.       LAST=HERE.OFFSET
  23.    END
  24. END
  25.  
  26.  
  27.